home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / funk.schar l4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  225b  |  11 lines
  1. 10 rem ana 2 s. 174 bild 203 c
  2. 20 :
  3. 30 sys 37173,"-1/(x*x)",-5,5,-7,1 : rem a=0
  4. 40 for i=1 to 8
  5. 50 read a : a=-a : sys 37173,"(a*x*x-1)/(x*x-a)"
  6. 60 next i
  7. 70 poke198,0:wait198,1:getz$
  8. 80 sys 40211 : end
  9. 90 :
  10. 100 data 0.2,0.5,0.75,1,1.25,2,4,16
  11.